home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 55 / 055.d81 / source code (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  160 lines
  1. 100 rem source to compiled break-fast.  design enhancements by loadstar
  2. 110 poke787,1:gosub750:poke53272,21:print"":clr:rem  c1988 g. de blqis
  3. 120 forx=1to38:a$=a$+"[207]":next:poke53280,6:poke53281,0:poke646,0:dx%=1:dy%=1:px%=20
  4. 130 py%=18:print"[147][159]"tab(14);"break-faster":pp%=32:pp$="[192][192][192][192][192]":a$=""+a$+""
  5. 140 s=54272:pokes+5,3:pokes+6,3:ifpeek(787)=1thensc=20000
  6. 150 ifpeek(787)>1thensc=peek(2040)*256+peek(2041)+20000
  7. 160 print"";a$;"";a$;:vp=.95:ifpeek(787)=2thenvp=.9
  8. 170 ifpeek(787)=3thenvp=.85
  9. 180 ifpeek(787)=4thenvp=.8
  10. 190 ifpeek(787)=5thenvp=.66666
  11. 200 ifpeek(787)=6thenvp=.5
  12. 210 ifpeek(787)=7thenvp=.33333
  13. 220 ifpeek(787)=8thenvp=.25
  14. 230 ifpeek(787)=9thenvp=.2
  15. 240 ifpeek(787)=10thenvp=.1
  16. 250 print"[153]";a$;"[158]";a$;"";a$;"[144]";
  17. 260 print"";a$;"";a$;
  18. 270 print"[153]";a$;"[158]";a$;"";a$;"[144]":gosub680
  19. 280 bm%=99:ifpeek(787)>1thengosub780
  20. 290 ifpeek(787)>1thenprint""tab(28)"spoiler:"
  21. 300 poke198,0:poke214,22:print:printtab(pp%);pp$:zz%=px%+40*py%
  22. 310 ifpeek(653)=7andpeek(197)=1thenpoke787,10
  23. 320 ifpeek(197)=62then520
  24. 330 ifsc=0then520
  25. 340 ifbp%>30+rnd(ti)*21thengosub1410
  26. 350 ifzz%<1000thenpoke1024+zz%,81:poke55296+zz%,1
  27. 360 ifpeek(653)=1then360
  28. 370 iflp<>pp%thenpoke214,22:print:printtab(lp)"       ";
  29. 380 lp=pp%:x=(peek(56320)and15):ifx=11orpeek(197)=47orpeek(653)=2thenpp%=pp%-2.5
  30. 390 ifpp%<1thenpp%=1
  31. 400 ifx=7orpeek(197)=44orpeek(197)=2thenpp%=pp%+2.5:ifpp%>35thenpp%=34
  32. 410 poke214,22:print:printtab(pp%);pp$
  33. 420 ifzz%<1000andzz%>1thenpoke1024+zz%,32
  34. 430 px%=px%+dx%:ifpx%>38thendx%=-dx%:px%=38
  35. 440 ifpx%<1thendx%=-dx%:px%=1
  36. 450 py%=py%+dy%:ifpy%<=1thendy%=-dy%
  37. 460 zz%=peek(1024+px%+40*py%)
  38. 470 ifpy%>23thensc=int(vp*sc):bp%=0:gosub680:gosub690:dy%=-dy%:gosub780:goto300
  39. 480 ifzz%=207thensc=sc+100*peek(787):bp%=bp%+1:h=h+1:gosub680:gosub1370:dy%=-dy%:goto300
  40. 490 ifh=380thengosub1440:poke2040,sc/256:poke2041,sc-int((sc/256))*256:run120
  41. 500 ifzz%<>81andzz%<>32thendy%=-dy%:gosub1340:goto300
  42. 510 goto300
  43. 520 print"[147]":x$=chr$(13)
  44. 530 ifpeek(787)=11thenprint"wow!  you did it!  you made level ten!"
  45. 540 ifpeek(787)=11thenprint"you beat the ball!":goto560
  46. 550 print"the game ends at level[158]"peek(787)
  47. 560 print"your score is[158]"sc""
  48. 570 ifsc>=20000thenprint"and hey!  you made it this far without"x$"losing points
  49. 580 [139]sc[179]20000[167][153]"but you didn't break even.  c'est la vie!"
  50. 590 [151]214,20:[153]:[153]"do you want to play again? (y/n)":[151]2048,0
  51. 600 [161]a$:[139]a$[178]"y"[167][138]
  52. 610 [139]a$[178]"n"[167] 630
  53. 620 [137]600
  54. 630 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  55. 640 [139] er[179][177]63 [167] [153]"load":[128]
  56. 650 a$[178]"hello connect":q$[178][199](34)
  57. 660 [153]"stoploadload"q$a$q$",8"
  58. 670 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  59. 680 [153]"score:        "sc:[142]
  60. 690 [141]1380
  61. 700 dd[178][187]([187](ti)[172]50)[172]11:[139]dd[179][178]5[167][141]730:[142]
  62. 710 [139]dd[177]5[167][139]dx%[179]1[167]dx%[178][171]2:[142]
  63. 720 dx%[178]2:[142]
  64. 730 [139]dx%[179]0[167]dx%[178][171]1:[142]
  65. 740 dx%[178]1:[142]
  66. 750 [151]53280, 0:[151]53281, 0:[153]"load";:[141]1090
  67. 760 [161]a$:[139]a$[179][177]" "[167]760
  68. 770 [141]830:[153]"load"[199](142):[142]
  69. 780 bm%[178]bm%[170]1:[139][194](787)[177]1[167][153]""[163]36)"     "[163]36)100[171]bm%
  70. 790 [139]bm%[179]100[176][194](787)[178]1[167][142]
  71. 800 [151]214,13:[153]:x$[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
  72. 810 [129]i[178]1[164]6:[153]"open "[200](x$,20[171]i)[163]19[170]i)[200](x$,20[171]i):[130]:bm%[178]0
  73. 820 [151]646,1:[142]
  74. 830 [153]"loadwait        listb r e a k - f a s t e r":[151]53272,21
  75. 840 [153]"        totototoandandandposposposnewnewnewposposposandandandtotototo"
  76. 850 [153]"         print#      the rules      "
  77. 860 [153]"        poketab(tab(tab(tab(usrusrusrfrefrefrenewnewnewwaitfrefrefreusrusrusrtab(tab(tab(tab("
  78. 870 [153]
  79. 880 [153]"tab(tab(tab(tab(tab(print#tab(tab(tab(tab(tab(tab(listtab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(listtab(tab(tab(tab(tab(print#tab(tab(tab(tab(tab(tab(poketab(tab(tab(tab(tab(tab(";
  80. 890 [153]" print#in this compiled version of break-fast"
  81. 900 [153]" you start with a whopping 20000 points."
  82. 910 [153]"on your score will increment by 100 for"
  83. 920 [153]" each block busted."
  84. 930 [153]" listyour score will decrease by 5 percent"
  85. 940 [153]" each time the ball hits bottom.  watch"
  86. 950 [153]" out!  don't let the paddle dribble"
  87. 960 [153]" the ball!  you'll lose points quickly."
  88. 970 [153]" the game ends when you have no points!print#"
  89. 980 [153]" level two of the game starts after all"
  90. 990 [153]" blocks are gone.  the spoiler listblocks"
  91. 1000 [153]" will reappear listafter 100 listmisses."
  92. 1010 [153]
  93. 1020 [153]"  c=wait moves left / crsr-rightwait moves right"
  94. 1030 [153]"on     joystick and <wait >wait keys also work"
  95. 1040 [153]"        shift to pause/q to quit"
  96. 1050 [153]"   open press space to play break-faster ";
  97. 1060 [153]"";:[151]198,0
  98. 1070 [161]a$:[139]a$[179][177]" "[167]1070
  99. 1080 [153]"load":[141]1490:[142]
  100. 1090 [153]"load"
  101. 1100 [153]"       listnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
  102. 1110 [153]"       print#    LOADSTAR PRESENTS     "
  103. 1120 [153]"       pokenewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
  104. 1130 [153]
  105. 1140 [153]
  106. 1150 [153]
  107. 1160 [153]"         *                    waitrnd"
  108. 1170 [153]"              BREAK-FASTER     "
  109. 1180 [153]"                               "
  110. 1190 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(close closeDemo of Compiledclose  waittab(tab(tab(tab(tab(tab(tab(tab(tab(";
  111. 1200 [153]"         close                    close"
  112. 1210 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(  Break-Fast (BASIC)  waittab(tab(tab(tab(tab(tab(tab(tab(tab(";
  113. 1220 [153]"                              close"
  114. 1230 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(                     closewaittab(tab(tab(tab(tab(tab(tab(tab(tab(";
  115. 1240 [153]"             By G. De Blois    "
  116. 1250 [153]"         log                    waitcos"
  117. 1260 [153]
  118. 1270 [153]"    print#Compiled with BASIC 64 by listABACUS"
  119. 1280 [153]"   tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  120. 1290 [153]"       newnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"
  121. 1300 [153]"       print# PRESS SPACEcloseTOcloseCONTINUE  "
  122. 1310 [153]"       pokefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
  123. 1320 [153]
  124. 1330 [153]"";:[151]198,0:[142]
  125. 1340 [151]54296,15:[151]s[170]1,80:[151]s[170]4,17:xt[178]ti
  126. 1350 [139]ti[171]xt[179]2[167]1350
  127. 1360 [151]s[170]4,16:[142]
  128. 1370 [151]54296,15:[151]s[170]1,160:[151]s[170]4,17:xt[178]ti:[137]1350
  129. 1380 [151]54296,15:[151]s[170]1,40:[151]s[170]4,17:xt[178]ti:[137]1350
  130. 1390 [153][194](197):[137]1390
  131. 1400 s[178]54272
  132. 1410 [129]xx[178]0[164]2000[169]40:[151]53281,xx[173]10:[151]53280,(xx[170]1)[173]10:sc[178]sc[170]50[172][194](787)
  133. 1420 [141]1370:[141]1430:[130]:[151]53281,0:[151]53280,6:bp%[178]0:[142]
  134. 1430 [153]"bonus!        "sc:[142]
  135. 1440 xt[178][194](787):[139]xt[179]255[167][151]787,xt[170]1
  136. 1450 [139][194](787)[178]11[167]520
  137. 1460 [141]1470:[142]
  138. 1470 [153]"loadpoints earned:sys"sc
  139. 1480 [153]"bonus for round"[194](787)[171]1":sys 20000":[151]198,0
  140. 1490 [153]"each block now worthsys"100[172]([194](787)[170]1)
  141. 1500 [153]"each bonus now worthsys"2000[172]([194](787)[170]1)
  142. 1510 [139][194](787)[178]1[167][153]"you lose sys5% of your points each miss!"
  143. 1520 [139][194](787)[177]1[167][153]"each miss now costs:sys ";
  144. 1530 [139][194](787)[178]2[167][153]"10%"
  145. 1540 [139][194](787)[178]3[167][153]"15%"
  146. 1550 [139][194](787)[178]4[167][153]"20%"
  147. 1560 [139][194](787)[178]5[167][153]"33%"
  148. 1570 [139][194](787)[178]6[167][153]"50%"
  149. 1580 [139][194](787)[178]7[167][153]"66%"
  150. 1590 [139][194](787)[178]8[167][153]"75%"
  151. 1600 [139][194](787)[178]9[167][153]"80%"
  152. 1610 [139][194](787)[178]10[167][153]"90%"
  153. 1620 [139][194](787)[177]1[167][153]"syswarning! openspoilerswait are active!"
  154. 1630 [153]"the penalty sysincreases